home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wwais103 / credits.frm next >
Text File  |  1995-05-08  |  2KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00FFFF00&
  4.    Caption         =   "WAIS for Windows"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   510
  7.    ClientTop       =   1260
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   450
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   7365
  15.    Top             =   915
  16.    Width           =   7485
  17.    Begin CommandButton Command1 
  18.       Caption         =   "Begin"
  19.       Height          =   495
  20.       Left            =   2760
  21.       TabIndex        =   0
  22.       Top             =   2880
  23.       Width           =   1815
  24.    End
  25. End
  26. Sub Command1_Click ()
  27.  
  28.     form2.Hide
  29.     question_form.Show
  30. End Sub
  31.  
  32. Sub Form_Load ()
  33. AutoRedraw = -1
  34.     FontSize = 24
  35.     st$ = "WAIS for Windows"
  36.     CurrentY = 3
  37.     HalfWidth = TextWidth(st$) / 2
  38.     CurrentX = ScaleWidth / 2 - HalfWidth
  39.     Print st$
  40.     CurrentY = CurrentY + TextHeight(st$) / 2
  41.     FontSize = 10
  42.     st$ = "Version 1.03 - 3/18/92"
  43.     HalfWidth = TextWidth(st$) / 2
  44.     CurrentX = ScaleWidth / 2 - HalfWidth
  45.     Print st$
  46.     CurrentY = CurrentY + TextHeight(st$) / 2
  47.     st$ = "University of North Carolina at Chapel Hill"
  48.     HalfWidth = TextWidth(st$) / 2
  49.     CurrentX = ScaleWidth / 2 - HalfWidth
  50.     Print st$
  51.     CurrentY = CurrentY + TextHeight(st$) / 2
  52.     st$ = "Computing Systems Development Group"
  53.     HalfWidth = TextWidth(st$) / 2
  54.     CurrentX = ScaleWidth / 2 - HalfWidth
  55.     Print st$
  56.     CurrentY = CurrentY + TextHeight(st$) / 2
  57.     st$ = "For More Information, Contact:"
  58.     HalfWidth = TextWidth(st$) / 2
  59.     CurrentX = ScaleWidth / 2 - HalfWidth
  60.     Print st$
  61.  
  62.     CurrentY = CurrentY + TextHeight(st$) / 2
  63.     st$ = "Jim_Fullton@unc.edu"
  64.     HalfWidth = TextWidth(st$) / 2
  65.     CurrentX = ScaleWidth / 2 - HalfWidth
  66.     Print st$
  67.  
  68. End Sub
  69.  
  70.